perl if else one line